<?php
/**
 * 图片处理工具 支持图片 图片文字水印添加、图片裁剪，图片缩放（缩略图创建） 图片填充
 */

namespace ServiceSdk\Utils\Image;

use xiaoyaoSDK\Services\BaseService;
use ServiceSdk\Utils\Image\image\Exception as ImageException;
use ServiceSdk\Utils\Image\image\gif\Gif;

class Image extends BaseService
{
    /* 缩略图相关常量定义 */
    //常量，标识缩略图等比例缩放类型
    const THUMB_SCALING = 1;
    //常量，标识缩略图缩放后填充类型
    const THUMB_FILLED = 2;
    //常量，标识缩略图居中裁剪类型
    const THUMB_CENTER = 3;
    //常量，标识缩略图左上角裁剪类型
    const THUMB_NORTHWEST = 4;
    //常量，标识缩略图右下角裁剪类型
    const THUMB_SOUTHEAST = 5;
    //常量，标识缩略图固定尺寸缩放类型
    const THUMB_FIXED = 6;

    /* 渐变色填充常量定义 */
    // 水平填充
    const GRADIENT_HORIZONTAL = 1;
    // 垂直填充
    const GRADIENT_VERTICAL = 2;
    // 椭圆填充 样式1
    const GRADIENT_ELLIPSE = 3;
    // 椭圆填充 样式2
    const GRADIENT_ELLIPSE2 = 4;
    // 圆形填充 样式1
    const GRADIENT_CIRCLE = 5;
    // 圆形填充 样式2
    const GRADIENT_CIRCLE2 = 6;
    // 正方形填充
    const GRADIENT_SQUARE = 7;
    // 长方形填充
    const GRADIENT_RECTANGLE = 8;
    // 菱形填充
    const GRADIENT_DIAMOND = 9;

    /* 水印相关常量定义 */
    //常量，标识左上角水印
    const WATER_NORTHWEST = 1;
    //常量，标识上居中水印
    const WATER_NORTH = 2;
    //常量，标识右上角水印
    const WATER_NORTHEAST = 3;
    //常量，标识左居中水印
    const WATER_WEST = 4;
    //常量，标识居中水印
    const WATER_CENTER = 5;
    //常量，标识右居中水印
    const WATER_EAST = 6;
    //常量，标识左下角水印
    const WATER_SOUTHWEST = 7;
    //常量，标识下居中水印
    const WATER_SOUTH = 8;
    //常量，标识右下角水印
    const WATER_SOUTHEAST = 9;

    /* 翻转相关常量定义 */
    //X轴翻转
    const FLIP_X = 1;
    //Y轴翻转
    const FLIP_Y = 2;

    // 图像资源对象
    protected $im;

    // gif对象
    protected $gif;

    // 储存图像信息，包括 width, height, type, mime, size
    protected $info;

    public function __construct(\SplFileInfo $file)
    {
        //获取图像信息
        $info = @getimagesize($file->getPathname());

        //检测图像合法性
        if (false === $info || (IMAGETYPE_GIF === $info[ 2 ] && empty($info[ 'bits' ]))) {
            throw new ImageException('不合法的图片文件');
        }

        //设置图像信息
        $this->info = [
            'width' => $info[ 0 ],
            'height' => $info[ 1 ],
            'type' => image_type_to_extension($info[ 2 ], false),
            'mime' => $info[ 'mime' ],
        ];

        //打开图像,gif是动态图像，单独处理
        if ('gif' == $this->info[ 'type' ]) {
            $this->gif = new Gif($file->getPathname());
            $this->im = @imagecreatefromstring($this->gif->image());
        } else {
            $fun = "imagecreatefrom{$this->info['type']}";
            $this->im = @$fun($file->getPathname());
        }

        if (empty($this->im)) {
            throw new ImageException('创建图片资源失败');
        }

    }

    /**
     * Description: 打开一个图像文件
     *
     * @param $file
     *
     * @return Image
     * @Author: Bililovy
     * @Date  : 18-6-21 下午7:14
     */
    public static function open($file): self
    {
        if (is_string($file)) {
            $file = new \SplFileInfo($file);
        }
        if ( ! $file->isFile()) {
            throw new ImageException('图片文件不存在');
        }

        return new self($file);
    }

    /**
     * Description: 保存最终的目标图像
     *
     * @param string $pathname 图像保存路径名称
     * @param string $type     图像类型
     * @param int $quality     图像质量
     * @param bool $interlace  是否对JPEG类型图像设置隔行扫描
     *
     * @return Image
     * @Author: Bililovy
     * @Date  : 18-6-21 下午7:16
     */
    public function save(string $pathname, string $type = '', int $quality = 80, bool $interlace = true): self
    {
        //自动获取图像类型
        if (empty($type)) {
            $type = $this->info[ 'type' ];
        } else {
            $type = strtolower($type);
        }
        if ( ! is_dir(dirname($pathname))) {
            @mkdir(dirname($pathname), 0755, true);
        }
        //保存图像
        if ('jpeg' == $type || 'jpg' == $type) {
            //JPEG图像设置隔行扫描
            imageinterlace($this->im, $interlace);
            imagejpeg($this->im, $pathname, $quality);
        } elseif ('gif' == $type && ! empty($this->gif)) {
            $this->gif->save($pathname);
        } elseif ('png' == $type) {
            //设定保存完整的 alpha 通道信息
            imagesavealpha($this->im, true);
            //ImagePNG生成图像的质量范围从0到9的
            imagepng($this->im, $pathname, min((int)($quality / 10), 9));
        } else {
            $fun = 'image' . $type;
            $fun($this->im, $pathname);
        }

        return $this;
    }

    /**
     * Description: 获取图像宽度
     * @return int
     * @Author: Bililovy
     * @Date  : 18-6-21 下午7:19
     */
    public function width(): int
    {
        return $this->info[ 'width' ];
    }

    /**
     * Description: 获取图像高度
     * @return int
     * @Author: Bililovy
     * @Date  : 18-6-21 下午7:19
     */
    public function height(): int
    {
        return $this->info[ 'height' ];
    }

    /**
     * Description: 获取图像类型
     * @return string
     * @Author: Bililovy
     * @Date  : 18-6-21 下午7:19
     */
    public function type(): string
    {
        return $this->info[ 'type' ];
    }

    /**
     * Description: 获取图像MIME类型
     * @return string
     * @Author: Bililovy
     * @Date  : 18-6-21 下午7:20
     */
    public function mime(): string
    {
        return $this->info[ 'mime' ];
    }

    /**
     * Description: 获取图像尺寸数组 0 - 图像宽度，1 - 图像高度
     * @return array
     * @Author: Bililovy
     * @Date  : 18-6-21 下午7:21
     */
    public function size(): array
    {
        return [$this->info[ 'width' ], $this->info[ 'height' ]];
    }

    /**
     * Description: 设置图片旋转角度
     *
     * @param int $degrees 顺时针旋转的度数
     *
     * @return Image
     * @Author: Bililovy
     * @Date  : 18-6-21 下午7:22
     */
    public function rotate(int $degrees = 90): self
    {
        do {
            $img = imagerotate($this->im, -$degrees, imagecolorallocatealpha($this->im, 0, 0, 0, 127));
            imagedestroy($this->im);
            $this->im = $img;
        } while ( ! empty($this->gif) && $this->gifNext());

        $this->info[ 'width' ] = imagesx($this->im);
        $this->info[ 'height' ] = imagesy($this->im);

        return $this;
    }

    /**
     * Description: 翻转图片，可以支持设定 翻转方式，水平|垂直
     *
     * @param int $direction
     *
     * @return Image
     * @Author: Bililovy
     * @Date  : 19-6-21 下午7:22
     */
    public function flip(int $direction = self::FLIP_X): self
    {
        //原图宽度和高度
        $w = $this->info[ 'width' ];
        $h = $this->info[ 'height' ];
        do {
            $img = imagecreatetruecolor($w, $h);
            switch ($direction) {
                case self::FLIP_X:
                    for ($y = 0; $y < $h; $y++) {
                        imagecopy($img, $this->im, 0, $h - $y - 1, 0, $y, $w, 1);
                    }
                break;
                case self::FLIP_Y:
                    for ($x = 0; $x < $w; $x++) {
                        imagecopy($img, $this->im, $w - $x - 1, 0, $x, 0, 1, $h);
                    }
                break;
                default:
                    throw new ImageException('不支持的翻转类型');
            }

            imagedestroy($this->im);
            $this->im = $img;
        } while ( ! empty($this->gif) && $this->gifNext());

        return $this;
    }

    /**
     * Description: 裁剪图像
     *
     * @param int $w      裁剪区域宽度
     * @param int $h      裁剪区域高度
     * @param int $x      裁剪区域x坐标
     * @param int $y      裁剪区域y坐标
     * @param int $width  图像保存宽度
     * @param int $height 图像保存高度
     *
     * @return Image
     * @Author: Bililovy
     * @Date  : 19-6-21 下午7:29
     */
    public function crop(int $w, int $h, int $x = 0, int $y = 0, int $width = 0, int $height = 0): self
    {
        //设置保存尺寸
        empty($width) && $width = $w;
        empty($height) && $height = $h;
        do {
            //创建新图像
            $img = imagecreatetruecolor($width, $height);
            // 调整默认颜色
            $color = imagecolorallocate($img, 255, 255, 255);
            imagefill($img, 0, 0, $color);
            //裁剪
            imagecopyresampled($img, $this->im, 0, 0, $x, $y, $width, $height, $w, $h);
            imagedestroy($this->im); //销毁原图
            //设置新图像
            $this->im = $img;
        } while ( ! empty($this->gif) && $this->gifNext());
        $this->info[ 'width' ] = (int)$width;
        $this->info[ 'height' ] = (int)$height;

        return $this;
    }

    /**
     * Description: 生成缩略图
     *
     * @param int $width            缩略图宽度
     * @param int $height           缩略图高度
     * @param int $type             缩略图裁剪类型，见上方 const常量的 THUMB_xxx说明
     * @param string $hexColor      当 $type参数传入 ： THUMB_FILLED时生效，其他类型，此参数不生效
     *                              表示要填充背景的颜色
     *                              $rgb=[255,255,255] 分别表示 R:255, G:255， B:255
     *                              如果要填充渐变色
     * @param bool $isGradient      是否使用渐变色填充，当 $type 参数 THUMB_FILLED时生效，其他类型，此参数不生效
     * @param string $direction     渐变色填充方向，当 $isGrandient 为true时生效，否则不生效，当前支持参数值请参见上方
     *                              GRADIENT_TYPE 常量值
     *
     * @param string $startHexColor 填充颜色开始值（16进制的颜色值，如 #FFFFFF)
     * @param string $endHexColor   填充颜色的结束之（16进制的颜色值，如: #FF00FF)
     * @param int $step             填充补偿平滑度，默认 0，值越小过渡效果越平滑
     *
     * @return Image
     * @Author: Bililovy
     * @Date  : 19-6-21 下午7:31
     */
    public function thumb(
        int $width,
        int $height,
        int $type = self::THUMB_SCALING,
        string $hexColor = '#FFFFFF',
        bool $isGradient = false,
        string $direction = IMAGE::GRADIENT_ELLIPSE,
        string $startHexColor = '',
        string $endHexColor = '',
        int $step = 0
    ): self {
        //原图宽度和高度
        $w = $this->info[ 'width' ];
        $h = $this->info[ 'height' ];
        /* 计算缩略图生成的必要参数 */
        switch ($type) {
            /* 等比例缩放 */
            case self::THUMB_SCALING:
                //原图尺寸小于缩略图尺寸则不进行缩略
                if ($w < $width && $h < $height) {
                    return $this;
                }
                //计算缩放比例
                $scale = min($width / $w, $height / $h);
                //设置缩略图的坐标及宽度和高度
                $x = $y = 0;
                $width = $w * $scale;
                $height = $h * $scale;
            break;
            /* 居中裁剪 */
            case self::THUMB_CENTER:
                //计算缩放比例
                $scale = max($width / $w, $height / $h);
                //设置缩略图的坐标及宽度和高度
                $w = $width / $scale;
                $h = $height / $scale;
                $x = ($this->info[ 'width' ] - $w) / 2;
                $y = ($this->info[ 'height' ] - $h) / 2;
            break;
            /* 左上角裁剪 */
            case self::THUMB_NORTHWEST:
                //计算缩放比例
                $scale = max($width / $w, $height / $h);
                //设置缩略图的坐标及宽度和高度
                $x = $y = 0;
                $w = $width / $scale;
                $h = $height / $scale;
            break;
            /* 右下角裁剪 */
            case self::THUMB_SOUTHEAST:
                //计算缩放比例
                $scale = max($width / $w, $height / $h);
                //设置缩略图的坐标及宽度和高度
                $w = $width / $scale;
                $h = $height / $scale;
                $x = $this->info[ 'width' ] - $w;
                $y = $this->info[ 'height' ] - $h;
            break;
            /* 填充 */
            case self::THUMB_FILLED:
                //计算缩放比例
                if ($w < $width && $h < $height) {
                    $scale = 1;
                } else {
                    $scale = min($width / $w, $height / $h);
                }
                //设置缩略图的坐标及宽度和高度
                $neww = $w * $scale;
                $newh = $h * $scale;
                $x = $this->info[ 'width' ] - $w;
                $y = $this->info[ 'height' ] - $h;
                $posx = ($width - $w * $scale) / 2;
                $posy = ($height - $h * $scale) / 2;
                do {
                    if ($isGradient) {
                        // 使用渐变的方式填充
                        //@TODO 待做
                        $img = new GradientFill($width, $height, $direction, $startHexColor, $endHexColor, $step);
                    } else {
                        //创建新图像
                        $img = imagecreatetruecolor($width, $height);
                        // 调整默认颜色
                        $rgb = $this->hex2rgb($hexColor);
                        $color = imagecolorallocate($img, $rgb[ 0 ] ?? 255, $rgb[ 1 ] ?? 255, $rgb[ 2 ] ?? 255);
                        // 直接使用默认方式填充
                        imagefill($img, 0, 0, $color);
                    }
                    //裁剪
                    imagecopyresampled($img, $this->im, $posx, $posy, $x, $y, $neww, $newh, $w, $h);
                    imagedestroy($this->im); //销毁原图
                    $this->im = $img;
                } while ( ! empty($this->gif) && $this->gifNext());
                $this->info[ 'width' ] = (int)$width;
                $this->info[ 'height' ] = (int)$height;

                return $this;
            /* 固定 */
            case self::THUMB_FIXED:
                $x = $y = 0;
            break;
            default:
                throw new ImageException('不支持的缩略图裁剪类型');
        }

        /* 裁剪图像 */

        return $this->crop($w, $h, $x, $y, $width, $height);
    }

    /**
     * Description: 添加水印
     *
     * @param string $source 水印图片路径
     * @param int $locate    水印位置
     * @param int $alpha     透明度
     *
     * @return Image
     * @Author: Bililovy
     * @Date  : 19-6-21 下午8:27
     */
    public function water(string $source, int $locate = self::WATER_SOUTHEAST, int $alpha = 100): self
    {
        if ( ! is_file($source)) {
            throw new ImageException('水印图像不存在');
        }
        //获取水印图像信息
        $info = getimagesize($source);
        if (false === $info || (IMAGETYPE_GIF === $info[ 2 ] && empty($info[ 'bits' ]))) {
            throw new ImageException('非法水印文件');
        }
        //创建水印图像资源
        $fun = 'imagecreatefrom' . image_type_to_extension($info[ 2 ], false);
        $water = $fun($source);
        //设定水印图像的混色模式
        imagealphablending($water, true);
        /* 设定水印位置 */
        switch ($locate) {
            /* 右下角水印 */
            case self::WATER_SOUTHEAST:
                $x = $this->info[ 'width' ] - $info[ 0 ];
                $y = $this->info[ 'height' ] - $info[ 1 ];
            break;
            /* 左下角水印 */
            case self::WATER_SOUTHWEST:
                $x = 0;
                $y = $this->info[ 'height' ] - $info[ 1 ];
            break;
            /* 左上角水印 */
            case self::WATER_NORTHWEST:
                $x = $y = 0;
            break;
            /* 右上角水印 */
            case self::WATER_NORTHEAST:
                $x = $this->info[ 'width' ] - $info[ 0 ];
                $y = 0;
            break;
            /* 居中水印 */
            case self::WATER_CENTER:
                $x = ($this->info[ 'width' ] - $info[ 0 ]) / 2;
                $y = ($this->info[ 'height' ] - $info[ 1 ]) / 2;
            break;
            /* 下居中水印 */
            case self::WATER_SOUTH:
                $x = ($this->info[ 'width' ] - $info[ 0 ]) / 2;
                $y = $this->info[ 'height' ] - $info[ 1 ];
            break;
            /* 右居中水印 */
            case self::WATER_EAST:
                $x = $this->info[ 'width' ] - $info[ 0 ];
                $y = ($this->info[ 'height' ] - $info[ 1 ]) / 2;
            break;
            /* 上居中水印 */
            case self::WATER_NORTH:
                $x = ($this->info[ 'width' ] - $info[ 0 ]) / 2;
                $y = 0;
            break;
            /* 左居中水印 */
            case self::WATER_WEST:
                $x = 0;
                $y = ($this->info[ 'height' ] - $info[ 1 ]) / 2;
            break;
            default:
                /* 自定义水印坐标 */
                if (is_array($locate)) {
                    list($x, $y) = $locate;
                } else {
                    throw new ImageException('不支持的水印位置类型');
                }
        }
        do {
            //添加水印
            $src = imagecreatetruecolor($info[ 0 ], $info[ 1 ]);
            // 调整默认颜色
            $color = imagecolorallocate($src, 255, 255, 255);
            imagefill($src, 0, 0, $color);
            imagecopy($src, $this->im, 0, 0, $x, $y, $info[ 0 ], $info[ 1 ]);
            imagecopy($src, $water, 0, 0, 0, 0, $info[ 0 ], $info[ 1 ]);
            imagecopymerge($this->im, $src, $x, $y, 0, 0, $info[ 0 ], $info[ 1 ], $alpha);
            //销毁零时图片资源
            imagedestroy($src);
        } while ( ! empty($this->gif) && $this->gifNext());
        //销毁水印资源
        imagedestroy($water);

        return $this;
    }

    /**
     * Description: 图像添加文字
     *
     * @param  string $text    添加的文字
     * @param  string $font    字体路径
     * @param  integer $size   字号
     * @param  string $color   文字颜色
     * @param int $locate      文字写入位置
     * @param  integer $offset 文字相对当前位置的偏移量
     * @param  integer $angle  文字倾斜角度
     *
     * @return $this
     * @Author: Bililovy
     * @Date  : 19-6-21 下午8:28
     */
    public function text(
        string $text,
        string $font,
        int $size,
        string $color = '#000000',
        int $locate = self::WATER_SOUTHEAST,
        int $offset = 0,
        int $angle = 0
    ): self {
        if ( ! is_file($font)) {
            throw new ImageException("不存在的字体文件：{$font}");
        }
        //获取文字信息
        $info = imagettfbbox($size, $angle, $font, $text);
        $minx = min($info[ 0 ], $info[ 2 ], $info[ 4 ], $info[ 6 ]);
        $maxx = max($info[ 0 ], $info[ 2 ], $info[ 4 ], $info[ 6 ]);
        $miny = min($info[ 1 ], $info[ 3 ], $info[ 5 ], $info[ 7 ]);
        $maxy = max($info[ 1 ], $info[ 3 ], $info[ 5 ], $info[ 7 ]);
        /* 计算文字初始坐标和尺寸 */
        $x = $minx;
        $y = abs($miny);
        $w = $maxx - $minx;
        $h = $maxy - $miny;
        /* 设定文字位置 */
        switch ($locate) {
            /* 右下角文字 */
            case self::WATER_SOUTHEAST:
                $x += $this->info[ 'width' ] - $w;
                $y += $this->info[ 'height' ] - $h;
            break;
            /* 左下角文字 */
            case self::WATER_SOUTHWEST:
                $y += $this->info[ 'height' ] - $h;
            break;
            /* 左上角文字 */
            case self::WATER_NORTHWEST:
                // 起始坐标即为左上角坐标，无需调整
            break;
            /* 右上角文字 */
            case self::WATER_NORTHEAST:
                $x += $this->info[ 'width' ] - $w;
            break;
            /* 居中文字 */
            case self::WATER_CENTER:
                $x += ($this->info[ 'width' ] - $w) / 2;
                $y += ($this->info[ 'height' ] - $h) / 2;
            break;
            /* 下居中文字 */
            case self::WATER_SOUTH:
                $x += ($this->info[ 'width' ] - $w) / 2;
                $y += $this->info[ 'height' ] - $h;
            break;
            /* 右居中文字 */
            case self::WATER_EAST:
                $x += $this->info[ 'width' ] - $w;
                $y += ($this->info[ 'height' ] - $h) / 2;
            break;
            /* 上居中文字 */
            case self::WATER_NORTH:
                $x += ($this->info[ 'width' ] - $w) / 2;
            break;
            /* 左居中文字 */
            case self::WATER_WEST:
                $y += ($this->info[ 'height' ] - $h) / 2;
            break;
            default:
                /* 自定义文字坐标 */
                if (is_array($locate)) {
                    list($posx, $posy) = $locate;
                    $x += $posx;
                    $y += $posy;
                } else {
                    throw new ImageException('不支持的文字位置类型');
                }
        }
        /* 设置偏移量 */
        if (is_array($offset)) {
            $offset = array_map('intval', $offset);
            list($ox, $oy) = $offset;
        } else {
            $offset = intval($offset);
            $ox = $oy = $offset;
        }
        /* 设置颜色 */
        if (is_string($color) && 0 === strpos($color, '#')) {
            $color = str_split(substr($color, 1), 2);
            $color = array_map('hexdec', $color);
            if (empty($color[ 3 ]) || $color[ 3 ] > 127) {
                $color[ 3 ] = 0;
            }
        } elseif ( ! is_array($color)) {
            throw new ImageException('错误的颜色值');
        }
        do {
            /* 写入文字 */
            $col = imagecolorallocatealpha($this->im, $color[ 0 ], $color[ 1 ], $color[ 2 ], $color[ 3 ]);
            imagettftext($this->im, $size, $angle, $x + $ox, $y + $oy, $col, $font, $text);
        } while ( ! empty($this->gif) && $this->gifNext());

        return $this;
    }

    /**
     * Description:  切换到GIF的下一帧并保存当前帧
     * @return string
     * @Author: Bililovy
     * @Date  : 19-6-21 下午8:30
     */
    protected function gifNext(): string
    {
        ob_start();
        ob_implicit_flush(0);
        imagegif($this->im);
        $img = ob_get_clean();
        $this->gif->image($img);
        $next = $this->gif->nextImage();
        if ($next) {
            imagedestroy($this->im);
            $this->im = imagecreatefromstring($next);

            return $next;
        } else {
            imagedestroy($this->im);
            $this->im = imagecreatefromstring($this->gif->image());

            return '';
        }
    }

    /**
     * Description: 十六进制颜色 转换为 rgb颜色值
     *
     * @param string $color 传入16进制颜色，如： #FF00FF
     *
     * @return array
     * @Author: Bililovy
     * @Date  : 19-6-21 下午7:47
     */
    public function hex2rgb(string $color): array
    {
        $rgb = [];
        $color = str_replace('#', '', $color);
        $s = strlen($color) / 3;
        $rgb[] = hexdec(str_repeat(substr($color, 0, $s), 2 / $s));
        $rgb[] = hexdec(str_repeat(substr($color, $s, $s), 2 / $s));
        $rgb[] = hexdec(str_repeat(substr($color, 2 * $s, $s), 2 / $s));

        return $rgb;
    }

    /**
     * 析构方法，用于销毁图像资源
     */
    public function __destruct()
    {
        empty($this->im) || imagedestroy($this->im);
    }
}
